1 IFA=0THENPOKE53265,PEEK(53265)AND239:A=1:LOAD"EXPANDBAS",8,1
2 POKE53265,PEEK(53265)OR16:SYS49152
4 POKE53272,37:POKE648,200:POKE53240,0
5 POKE53280,0:POKE53281,0:SYS58692
10 PRINT"[147][144]LOAD"CHR$(34)"LC.MAIN"CHR$(34)",8":PRINT"RUN"
20 POKE631,19:FORI=1TO6:POKE632+I,13:NEXT:POKE198,7:NEW